Các câu lệnh điều kiện sau có viết đúng ko?chỉ ra lỗi sai nếu có:
A.If a mod 2=0;then write('a la so chan');
B.If a mod 2<>0then 'a la so le');
C.If i/2 then i:i+1;
D.If i mod 2=0 then i=i+1;
Câu lệnh sau có bao nhiêu lỗi sai? Hãy chỉ ra các lỗi sai đó:
if a mod 2 :=0 then writeln(a,' la so chan);
else writln(a, ' la so le')
co 4 loi sai
if a mod 2:=0 là sai ở chỗ :
writeln(a,'la so chan); là sai ở chỗ sau chữ n thiếu dấu '
writln sai ở chỗ thiếu chữ e
(a,'la so le') sai ở chỗ thiếu chấm phẩy sau cùng
“Nếu b chia 2 dư 1 thì in ra màn hình b la so le” được thể hiện câu lệnh trong Pascal như thế nào?
A. If b/2=1 then Write(‘b la so le’);
B. If b mod 2=1 then Writeln(b la so le);
C. If b mod 2=1 then Write(‘b la so le’);
D. If b div 2=1 then Write(‘b la so le’);
Câu lệnh nào dưới đây dùng để kiểm tra 1 số là số chẵn hay số lẻ?
A.If So div 2=0 So then write('so le') else write('so chan');
B. If N mod 2<>0 So then write('so le') else write('so chan');
C. If So div 2<>So then write('so le') else write('so chan');
D. If N mod 2=0 So then write('so le') else write ('so chan');
Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. A)if mod 2=0 then B)while i
Câu 15:
Câu lệnh Pascal nào sau đây viết đúng?
A.
if x > 4 then a:=b else m:=n;
B.
if x:= 5 then a = b;
C.
if x > 4; then a:= b;
D.
if x > 4 then a:=b; m:=n;
Câu 20: Điền một trong các điều kiện : (a mod b=0) (adivb = 0) , (a div b =0), (a > b) (a^ < b),(a=b) vào câu lệnh sau cho đúng?
A. If......... then write( 'a chia het cho b^ prime ) else write(^ / không chia hết cho b);
B. If......... then write( a lon hon b');
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);
d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.
Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé
Cho biết kết quả câu lệnh sau: For i:=1 to 10 do if i mod 2=0 then write(i:4); *
a.1 2 3 4 5 6 7 8 9 10
b.2 4 6 8 10
c.1 3 5 7 9
d.4 8
cho a=9,b=8.tim gia tri cua S sau moi câu lệnh dưới đây,với ban đầu giá trị của S=0
A.If (a+b) mod 2=0 then S:=a*b;
B.If (a>=b) or (a>9) then S:=b else S:=a;
thanks
A. S = 0 (vì 17 mod 2 = 1)
B. S = 8 (vì 9 >= 8 là 1 mệnh đề đúng, chỉ cần 1 trong 2 điều kiện đúng là lệnh điều kiện cũng sẽ đúng)